10 PRINT"[147][159]":POKE53281,0:POKE53280,0
20 INPUT"[159][211][210].[195]HAPTER NAME[158]:";F$:IFF$=""THEN20
22 PRINT:IFLEFT$(F$,3)<>"SR."THENF$="SR."+F$
25 INPUT"[159][211][210].[198]ILE TO CHAIN[158]:";C$:IFC$=""THEN25
27 PRINT:IFLEFT$(C$,3)<>"SR."THENC$="SR."+C$
40 INPUT"[159][196]EVICE[158]:";D$:IFVAL(D$)<8THEN40
50 PRINT"[195]HAINING "C$" TO "F$"..."
60 OPEN2,VAL(D$),2,F$+",P,A"
70 PRINT#2,CHR$(0);C$;:CLOSE2
80 OPEN15,VAL(D$),15:INPUT#15,A$,B$,C$,D$:PRINTA$","B$","C$","D$
90 GETA$:IFA$=""THEN90
100 RUN